object Main: TMain Left = 237 Top = 121 AutoScroll = False Caption = 'FileChopper' ClientHeight = 369 ClientWidth = 529 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 OnClose = OnClose OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Bevel1: TBevel Left = 0 Top = 0 Width = 529 Height = 0 Align = alTop end object Bevel2: TBevel Left = 0 Top = 39 Width = 529 Height = 0 Align = alTop end object SpeedBar: TPanel Left = 0 Top = 0 Width = 529 Height = 39 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object SplitAFileBtn: TSpeedButton Left = 6 Top = 5 Width = 30 Height = 30 Cursor = crHandPoint Hint = 'Select a file to be splitted|Select a file that will be splitted' + ' into several smaller files' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SplitAFileBtnClick end object ExitBtn: TSpeedButton Left = 285 Top = 5 Width = 30 Height = 30 Cursor = crHandPoint Hint = 'Exit|Exit from the program' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = ExitBtnClick end object JoinFilesBtn: TSpeedButton Left = 161 Top = 5 Width = 30 Height = 30 Cursor = crHandPoint Hint = 'Select files to be joined|Select files that will be joined toget' + 'her into one big file' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333 3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000 B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0 33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000 000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8 033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333 BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333 33B33733333773333373B333333B3333333B7333333733333337} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = JoinFilesBtnClick end object DoSplitBtn: TSpeedButton Left = 68 Top = 5 Width = 30 Height = 30 Cursor = crHandPoint Hint = 'Split the file|Split the selected file into smaller files' Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333 70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003 70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333 70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = DoSplitBtnClick end object DoJoinBtn: TSpeedButton Left = 223 Top = 5 Width = 30 Height = 30 Cursor = crHandPoint Hint = 'Join the files|Join the selected files into one big file' Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033 70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033 70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033 70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = DoJoinBtnClick end object FindPlaceToSmallFilesBtn: TSpeedButton Left = 37 Top = 5 Width = 30 Height = 30 Cursor = crHandPoint Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333 333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300 300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333 333337F373F773333333303330033333333337F3377333333333303333333333 333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333 333337777F337F33333330330BB00333333337F373F773333333303330033333 333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000 333377777F77377733330BBB0333333333337F337F33333333330BB003333333 333373F773333333333330033333333333333773333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = FindPlaceToSmallFilesBtnClick end object FindPlaceToBigFileBtn: TSpeedButton Left = 192 Top = 5 Width = 30 Height = 30 Cursor = crHandPoint Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333 333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300 300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333 333337F373F773333333303330033333333337F3377333333333303333333333 333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333 333337777F337F33333330330BB00333333337F373F773333333303330033333 333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000 333377777F77377733330BBB0333333333337F337F33333333330BB003333333 333373F773333333333330033333333333333773333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = FindPlaceToBigFileBtnClick end object HintBtn: TSpeedButton Left = 373 Top = 5 Width = 149 Height = 30 Cursor = crHandPoint Caption = 'How It Works' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF3333333333377777333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = HintBtnClick end object SelfUnitBtn: TSpeedButton Left = 99 Top = 5 Width = 30 Height = 30 Cursor = crHandPoint Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF 0003737FFFFFFFFF7F7330099999999900333777777777777733} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SelfUnitBtnClick end end object StatusBar: TStatusBar Left = 0 Top = 347 Width = 529 Height = 22 Panels = < item Width = 345 end item Width = 50 end> SimplePanel = False end object BigFileGB: TGroupBox Left = 6 Top = 49 Width = 517 Height = 80 Caption = 'Big File' TabOrder = 2 object BigFileSize: TLabel Left = 69 Top = 49 Width = 3 Height = 16 end object lblBigFileName: TLabel Left = 10 Top = 20 Width = 55 Height = 19 AutoSize = False Caption = 'Name' end object BigFileName: TLabel Left = 69 Top = 20 Width = 3 Height = 16 end object lblBigFileSize: TLabel Left = 10 Top = 49 Width = 55 Height = 20 AutoSize = False Caption = 'Size' end object BigFileRB1: TRadioButton Left = 286 Top = 47 Width = 30 Height = 21 Caption = 'B' TabOrder = 0 OnClick = BigFileRB1Click end object BigFileRB2: TRadioButton Left = 341 Top = 47 Width = 41 Height = 21 Caption = 'kB' TabOrder = 1 OnClick = BigFileRB2Click end object BigFileRB3: TRadioButton Left = 398 Top = 47 Width = 41 Height = 21 Caption = 'MB' TabOrder = 2 OnClick = BigFileRB3Click end object BigFileRB4: TRadioButton Left = 453 Top = 47 Width = 41 Height = 21 Caption = 'GB' TabOrder = 3 OnClick = BigFileRB4Click end end object ActualSizeGB: TGroupBox Left = 6 Top = 138 Width = 517 Height = 178 Caption = 'Small files' ParentShowHint = False ShowHint = False TabOrder = 3 object lblNrFiles: TLabel Left = 156 Top = 49 Width = 29 Height = 16 Alignment = taRightJustify Caption = 'Files' end object SmallerSize: TLabel Left = 197 Top = 49 Width = 149 Height = 20 AutoSize = False Caption = 'Sizes (B)' end object BaseSizeHeadline: TLabel Left = 10 Top = 49 Width = 59 Height = 16 Caption = 'Base size' end object lblSmallFileNames: TLabel Left = 10 Top = 20 Width = 63 Height = 19 AutoSize = False Caption = 'Name' end object SmallFileNames: TLabel Left = 69 Top = 20 Width = 30 Height = 16 Caption = ' ' end object lblNewSize: TLabel Left = 354 Top = 49 Width = 149 Height = 20 AutoSize = False Caption = 'New Size' end object ChangeItem: TLabel Left = 354 Top = 98 Width = 149 Height = 20 AutoSize = False Caption = 'File number' Enabled = False end object SmallerSizesLB: TListBox Left = 197 Top = 69 Width = 149 Height = 101 Cursor = crHandPoint Enabled = False ItemHeight = 16 ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = SmallerSizesLBClick end object ApplyBaseSize: TButton Left = 10 Top = 139 Width = 178 Height = 31 Cursor = crHandPoint Hint = 'Updates '#39'Sizes (B)'#39'|Calculate number of small files required and' + ' their sizes' Caption = 'Apply Base Size' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = ApplyBaseSizeClick end object CBBaseSize: TComboBox Left = 10 Top = 69 Width = 178 Height = 24 Cursor = crHandPoint Style = csDropDownList ItemHeight = 16 ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = CBBaseSizeChange end object txtNewSize: TEdit Left = 354 Top = 69 Width = 149 Height = 24 Cursor = crHandPoint Enabled = False ParentShowHint = False ShowHint = True TabOrder = 3 OnChange = txtNewSizeChange end object ApplyNewSize: TButton Left = 354 Top = 139 Width = 149 Height = 31 Cursor = crHandPoint Caption = 'Apply New Size' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = ApplyNewSizeClick end object rbSizeFree: TRadioButton Left = 10 Top = 117 Width = 175 Height = 17 Caption = 'rbSizeFree' TabOrder = 5 OnClick = rbSizeFreeClick end object rbSizeBase: TRadioButton Left = 10 Top = 98 Width = 175 Height = 17 Caption = 'rbSizeBase' TabOrder = 6 OnClick = rbSizeBaseClick end end object PBar: TProgressBar Left = 6 Top = 325 Width = 517 Height = 15 Min = 0 Max = 100 ParentShowHint = False ShowHint = True TabOrder = 4 end object MainMenu1: TMainMenu Left = 232 Top = 128 object File1: TMenuItem Caption = '&File' object ChooseSplitAFile: TMenuItem Caption = 'Choose &A File To Split' ShortCut = 16449 OnClick = ChooseSplitAFileClick end object FindPlaceToSmallFiles: TMenuItem Caption = 'Find A Place for the small files' ShortCut = 16450 OnClick = FindPlaceToSmallFilesClick end object DoSplit: TMenuItem Caption = '&Split The File' ShortCut = 16467 OnClick = DoSplitClick end object N1: TMenuItem Caption = '-' end object CreateUnchopperFile: TMenuItem Caption = 'UnChop' ShortCut = 16466 OnClick = CreateUnchopperFileClick end object N2: TMenuItem Caption = '-' end object JoinFiles: TMenuItem Caption = 'Choose &Files To Join' ShortCut = 16452 OnClick = JoinFilesClick end object FindPlaceToBigFile: TMenuItem Caption = 'Find A Place To The Big File' ShortCut = 16453 OnClick = FindPlaceToBigFileClick end object DoJoin: TMenuItem Caption = '&Join The Files' ShortCut = 16458 OnClick = DoJoinClick end object N3: TMenuItem Caption = '-' end object ClearRegistry: TMenuItem Caption = 'Reset default values' OnClick = ClearRegistryClick end object Exit: TMenuItem Caption = '&Exit' ShortCut = 16465 OnClick = ExitClick end end object ChangeOfDisk: TMenuItem Caption = 'Pause' object ChangeAlways: TMenuItem Caption = 'ChangeAlways' OnClick = ChangeAlwaysClick end object ChangeSometimes: TMenuItem Caption = 'ChangeSometimes' OnClick = ChangeSometimesClick end object ChangeNever: TMenuItem Caption = 'ChangeNever' OnClick = ChangeNeverClick end end object Memory1: TMenuItem Caption = '&Memory' object MemoryUsage: TMenuItem Caption = 'Mem Usage...' OnClick = MemoryUsageClick end end object Filetype: TMenuItem Caption = 'Filetype' object ChooseFiletype: TMenuItem Caption = 'ChooseFiletype' OnClick = ChooseFiletypeClick end end object Language1: TMenuItem Caption = '&Language' object LanguageEnglish: TMenuItem Caption = '&English' OnClick = LanguageEnglishClick end object LanguageSwedish: TMenuItem Caption = '&Swedish' OnClick = LanguageSwedishClick end object LanguageGerman: TMenuItem Caption = 'German' OnClick = LanguageGermanClick end end object Remove1: TMenuItem Caption = 'Remove' object RemoveBig: TMenuItem Caption = 'Big' OnClick = RemoveBigClick end object RemoveSmall: TMenuItem Caption = 'Small' OnClick = RemoveSmallClick end end object Help1: TMenuItem Caption = '&Help' object About: TMenuItem Caption = 'About' OnClick = AboutClick end object Hint: TMenuItem Caption = 'Hint' OnClick = HintClick end end end end